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HISTORICAL PERSPECTIVE 



FORTH was created by Mr, Charles H. 

Moore In about 1969 at the National Radio 
Astronomy Observatory, Charlottesville, VA. 
It was created out oT his dissatisfaction 
with available programnlng tools, especially 
for automation. Distribution of his work to 
other observatories has made FORTH the 
de-facto standard language for observatory 
au toma t ion . 



Mr, Moore and several associates 
formed Forth Inc. In 1973 for the purpose 
of licensing and support of the FORTH 
Operating System and Programning Language, 
and to supply application programnlng to 
meet customers' unique requirements. 



FORTH enjoys a synergism of its 
features. It has none of the elephantine 
characteristics of PL/1 or FORTRAN. It has 
a density and speed far surpassing BASIC, 
but retains an interactive nature during 
program development. Since it is 

extensible, special words are easily defined 



FOR NEWCOMERS 

FORTH listings consist of sequoncos of "Vordl" the* 
execute and/or con^ile. Whan you hov* lludlad a glonar/ 
and a few sample listinss, you should develop th« dbility to 
understand the action of new words In tenm of th«lr d«fln- 
itioo component!. For the time bvlng, yta present a siirp- 
lified glossoy of the undefined words in thb issu* of FORTH 
OiMENSTIONS. For o filler listing send for th« F.I. G 
Glossary. 

: XXX ; 

':' creates o new word named Sooc' and compiles the 
following words (represented at ....) until reaching ';*. 
When bocx' is Ic^ar used, it executes th* words right after it% 

name until the 

CONSTANT VARIABLE 

Each creates a new word with the following which 
takes its value from the number just before. 

IF ELSE THEN 

A test is made at 'IF' . If true, the words CDcecuH until the 
' ELSE' and skip until THEN. If falsa, skip untllELSE and 
eocecute until THEN. 

BEGIN END 

At END a test a made; if false, execution return* to BEGIN; 
otherwise continue ahead. 

DO LOOP LEAVE 

At DO o limit end first Index are soyed. At LOOP, the 
Index is Incremented; until the limit Is reached, wecutlon 
return to DO . LEAVE farces cKecution to eocit at LOOP. 

DUP DROP OVER SWAP ROT + - • / 

These words o p er ate on nun^en in a stock \utt m then do 

in a HP calculo*or. If you like HP, you'll lov« FORTH. 

>R R> 

Xt moves the top stock number to another Mock. R> 
retreives it back to the original stock. 
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to give It the terseness of APL. Its 
clarity and consistency result from being 
the product of a single nlnd. (as were APL 
and PASCAL). 



Although the language specification and 
■any iDpleoantations are in the public 
domain, many other implementations and 
application packages are available as 
program products of commercial suppliers. 



The FORTH Interest Oroup is centered In 
Northern California. It was formed in 1978 
by local FORTH programmers to encourage use 
of the language by the Interchange of ideas 
though seminars and publications. About 300 
members are presently associated into a 
loose national organizatloft . ('Loose' means 
that no budget exists to support any formal 
effort.) All effort is on a volunteer basis 
and the group Is associated with no vendors. 

:S W.F.R 8/20/78 



@ C@ 

@ Fetches the 16 bit contorts of on oddrm. C@ dew tha 
tame fqr a byte. C@ may be also called 6@ or \@, 

I CI 

ThaM woids stota the sMcnd stock number at the m«tioiy 
address on the top of tha stock. CI storas only a byte; it 
may ba rKHiNll Bl or M on soma systarm. 

TYPE types o Jtring by memory oddrats and chcfoetar count. 

SPACE types o space. 

CR types a carrkiga retunvT"* 

MOVE movat w»hln mamoiy by oddraMos and byta emnt. 
. print* a number. 

.R prinK o number in a t«Aol«*ad colunwi. 

2* tMi two to tha stock top nunber. 

STATE I* a vcricfcia, tiua when camptline< 

( skip* over cwu i i ia iiti until finding a ')' . 

EXECUTE eKaouta* tha word whosa oddran is on tha stock. 

■ find* tha address of the n«M» Input name. 

AND Is a bitwisa logical and. 

, ploeaso number In memory ai pott of cempiilng. 

• > < «« loglooi oomparben* of stock nunA>an. 

20 WORD fetches tha nesct Input wwd string. 

HERE Is o tamporory tmmay worfcspooa. 

lAiViAEOIATE <BUILDS 0OES> «n too Involvwl to 
dbcuahare. Thay ore deeeribad In soma datoll ta tha taoct. 

Box 1105 San Carlos, Ca. 94070 



EDITORIAL 



FORTH DIMENSIONS is dedicated to the promotion of 
extensible, threaded languages, primarily FORTH. Currently we 
are seeing a proliferation of similar languages. We will 
review all such implementations, referring to sources and 
availability. 

Our policy is to use the developing "FORTH 77" 
International Standard as our benchmark. 

Variant languages, such as STOIC, URTH, and CONVRRS, will 
be evaluated on their advantages and disadvantages relative to 
FORTH. However, in evaluating languages named FORTH, we will 
note their accuracy in imolementing all FORTH features. We 
expect complete versions named FORTH to contain: 

1. indirect threaded code 

2. an inner and outer interpreter 

3. standard names for the 40 major primitives 

4. words such as ;CODE, BLOCK, DOES> , (or ;:), which 
allow increased performance. 

We hope to enable prospective users/purchasers to 
correctly select the version and performance level they wish, 
to foster long-range growth in the application of FORTH. 

W.F.R. 



CONTRIBljrED MATERIAL 



FORTH InTeresf Groups needs the following material : 

1. Technical maT^rial for inclusion in FORTH DIMENSIONS. Both 
CKpoiftlons on Internal feahires of FORTH ond application programs are appreciated. 

2. Name and address of FORTH Implementations for inclusion in our 
publications. Include computer requirements, documentation and cost. 

3. Manuals available for distribution. We con purchase copies and distribute, 
or print from your authorized original. 

4. Letters of general Interest for publication In this newsletter. 

5. Users who may be referenced for local denonatration to newcomers. 
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QuantUB Hachiinlca: 



EXTENSIBILITY WITH FORTH -Y<V^*»)^' ^ 



The purpose of any computer language 
land Its compiler or Interpreter) is to 
bridge the gap between the "language* the 
machine understands (low level) and a 
language people understand (high level 
programming language). There are many 
choices for human-understandable languages: 
natural languages and artificial languages. 
The choice of language should allow 
eonvlenlent, terse, and unambiguous 
specification of the problem to be solved by 
the computer. Ordinarily only a few 
computer languages are available (e.g. 
BASIC, FORTRAN, APL). These were designed 
for certain classes of problems (such as 
mathematical equations) but are not suitable 
for others. The level of a language Is a 
measure of suitability of that language for 
a particular application. The higher the 
level, the terser the program. By 
definition, [i] the highest level would 
allow a given problem to be solved with one 
operator (or command) and as many operands 
as there are input data required. 



A natural language (e.g. English) 
might appear to be the best choice fop a 
human-understandable computer language, and 
for some applications it may be. But 
natural languages suffer from three 
limitations: verbosity. ambiguity, and 
difficulty to decipher. This is partly 
because the meaning of a given word is 
dependent on its useage In one or more 
sentences (called "context sensitive") and 
because they require complex and nonuniform 
grammar roles with many exceptions. 
Specialized vocabularies and grammars permit 
terse and precise expression of concepts for 
restricted sets of problems. For example, 
[2] consider the following definition of a 
syllogism from propositlonal caloulua: 

This sentence may be translated Into English 
as "Given three statements which are true or 
false, if the truth of the first implies the 
truth of the second, this implies that if 
the truth of the second implies the truth of 
the third, then the truth of the first 
implies the truth of the third." Ambiguity 
is hard to avoid in most natural languages. 
The English phrase "pretty little girls 
school" (when unpunctuated ) has 17 possible 
Interpretations f (Try it.) ^3] 



Electricity and Magnetism: 

V-D «/> 

Matrix Algebra: 



The trace of a matrix Is equal to the suia of 
Its eigenvalues. 

Organic Chemistry: 



Knitting: 



K2 tog. 3(5) times, "kl, p2 , kl, k3. tog., 
k1 , 

p2, kJ, pi, k1, p3 tog., k1, pi, p1» ; 
repeat 

between *'a onoe more, k1, p2 , k1 , k3 tog., 

k1, p2, k1; k2 tog. 3(5) times; '•7(51) sts. 

Poetry : 

Shakespearean sonnets are in iambic 

pentameter and 
consist of three quatrains followed by a 

couplet. 



FOSTH is capable of being matched to 
each of the above relations at a high level. 
Furthermore, using the FORTH concept of 
vocabularies, several different applications 
can be resident simultaneously but the scope 
of reference of component words can be 
restricted (i.e., not global). This 
versatility is because the FORTH language is 
extensible. In fact the normal act of 
programming in FORTH (i.e., defining new 
words In terms of existing words) extends 
the languagel For each problem programmed 
in FORTH, the language is extended aa 
required by the special needs of that 
problem. The final word defined which 
solves the whole problem la both an operator 
within the FORTH language (which Is also a 
"oommand") and the highest level operator 
for that problem. Further, the lower level 
words defined for this problem will 
frequently be useable for the programming of 
related problems. 



As for the suitability of traditional 
programming languages (e.g. BASIC, FORTRAN, 
COBOL, PASCAL, APL) for "almost all 
technical problems", try coding the 
following "sentences" In your favorite 
computer language: 
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It Is true that popular computer 
languages allow new functions to be added 
using SUBROUTINES and FORTRAN -1 ike 

FUNCTIONS. However these cannot be used 
syntactically the same as the operators in 
the language. 
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For axaaple, l«t 'a aacua* a BASIC 
intarpratar doaa not hava tha logioal AND 

operator. To ba oonslstent with alailar, 
existing operators one would Ilka to use 
■AND* in tha following syntax: 

k AND B 

(A,B are any valid operands). rurtharaore, 
one would want this new operator to have a 
priority higher than "OR" and lower than 
•NOT" so that 

NOT A AND B OR C 

would mean 

(HOT A) AND (B OR C) 

The only way to do this is to Modify one's 
BASIC interpreter. Although not lapossible. 
this is usually very difficult because of 
the following reasons: 

(1) Host BASIC'S are distributed without tha 
Interpreter source code (or not in 
■achina-readable fora). (2) One would have 
to learn this prograa and design a change. 
One ■odifioation might be "patched in", but 
■any probably could not. Such a modified 
Interpreter might not be compatible with 
future releases from the manufacturer. 
Errors might be Introduced Into other parts 
of the Interpreter by this modification. 
(3) The process of changing is time 
consuming. Before one could try tha new 
version, one would have to assemble, link, 
load, and possibly write a PROM. (How long 
would this take on your systea?) 

Another alt^trnative would be to use a BASIC 
rUNCriON to add the AND operator, but it 
would have to ba referenced as: 

AND (A.B) 

If NOT and OR were also rUNCTIOHS, (MOT A) 
AND <B OR C) would have to ba written aat 

AND (NOT(A), OR(B,C)) 

This later fora is lower level, lass 
readable, and inconsistent with tha 
Intrinsic operators. 

The addition of an AND operator in 
FORTH is as simple as any other programming 
addition; it would require one line of 
.source code. The FORTH asseabler oould be 
used to take advantage of a partioular 
prooassor's instruction, or tha ooapilar 
could be used, resulting in aaohlna 
tranaportability I Other dlffaranoas froa the 
exaapla of modifying BASIC are: (1) Nothing 
existing in the FORTH system needs to be 
changed, so no learning Is required, no 
errors are introduoed to tha axlatlng 
system, and compatibility with future 
releases is preserved. Tha souroa of tha 
FORTH kernel is not even neoessary. (2) Tha 
new operator oan ba triad iaaadiately after 
it is defined; if it is wrong it oan be 
fixed before any further use is aada of it. 
(3) This new operator is used axaetly tha 
same aa any FORTH operator. So it aay be 
alxed with existing operators in a totally 
oonslstant mmnnmr. 



APL fans will point out that all the 
above is true for APL also. For something 
as slaple as "AND" there is little 
difference. However, APL allows only 
monadic (single operand) and dladlc (two 
operand) operators; FORTH operators can be 
written to accept as many operands as the 
programmer desires. 



The previous discussion addressed the 
extension of the FORTH language, but It is 
almost aa easy to extend the FORTH 
eompilerl New compiler control structures 
(e.g., tha CASE construct) can be added 
without changing any of the existing 
compiler. Or the existing compiler can bo 
aodif led to do soaethlng different. To 
aalntaln coapatlblllty with the oxistins 
ooapiler, the modifications could be part of 
a user- defined "vocabulary" so that both 
versions would be selectively available. 
Furthermore, one oan write an entirely new 
oompller which accepts either the FORTH 
language or another language. (Complete 
BASIC Interpreters have been written in 
FORTH. ) 



The choice of a computer language for o 
given application (including system 
development) should optimize the following 
attributes: (1) Be terse (i.e., the highest 
lev4j, for the application) (2) Be 
unambiguous (3) Be extensible (e.g., 
language, data types, compiler) ( U ) Bo 
efficient (5) Be understandable (e.g., self 
documentation) (6) Be correct (e . g. , testing , 
proving assertions, consistency checks) (7) 
Ba struoturad (e.g., structured programming, 
reentrant, recursive) (0) Be maintainable 
(e.g., modular, no side effects) 

FORTH is a ooapromlse among these gocls, but 
ooaas closer than most existing progranmlng 
languages. 

;S KIM HARRIS 
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GERMAN REVISITED 



FORTH LEARNS GERMAN 



In the last Issue of FORTH DIMENSIONS 
we showed how to create a bl-lingual (or 
muIti-llngual ) version of FORTH, and listed 
a simple program (set of FORTH definitions) 
for doing so. In respect to translation, 
there are three different classes of FORTH 
words : 

(A) Those such as aatheDatlcal syabols which 
don't need to be translated. 

(B) Words such as DO and IF which cannot ba 
translated by a sinple colon deflnltlonj the 
existing definitions aust be' re-copled and 
given German names. (all the definitions 
are short - one line - however) 

(C) Other words, which could either be 
re-copled, or re-deflned by a colon 
definition. 



In any case, separate vocabularies can 
be used to prevent spelling clashes, no 
natter how many languages are spoken by one 
FORTH system. It can be possible to change 
languages as much as desired, even In the 
middle of a line. 



The article stated that there was no 

run-tine overhead. Such performance is 

possible, but the example given does have a 

run-time overhead of one extra level of 

nesting for each use of a word translated by 
a colon definition. 



The following article by Bill Ragsdale 
Is a more advanced treatment of language 
translation methods. It is written at the 
level of the FORTH systems programmer, and 
it uses a more standard FORTH version than 
the DECUS-supplled version whloh was used In 
the article which appeared in FORTH 
DIMENSIONS 1. 

JOHN 3. JAMBS 



In the last issue of FORTH DIMSHSIONS, 
we featured an article on natural language 
name conversions for FORTH. This article 
will add some additional ideas on the same 
topic. 

First, the method shown (vectoring thru 
code) does have some run-time overhead. 
Also, some code definitions cannot execute 
properly when vectored in this manner, for 
example : 

: R> R> ; 

will pull the call of R> from the return 
stack and crash. We would ultlaataly like 
to translate names with: 

1. Precisely correct operation during 
execution and compiling. 

Z, A minimum of memory cost. 

3. A minimum of run-time oost. 

■I. A minimum of compile-tlme cost. 

Let us now look at three specific examples 
to further clarify some of the trade-offs 
involved . 

EXAMPLE 1 - COMPILING WORD 

Let us see how USER can be oraated to 
self-eomplla . 

HEX 

: D-E >R 2* t (Z* optional on some systems) 
STATE « IF (compiling) DOP 8 - Ce 80 < 

IF 2 - , ELSE (Immediate ) EXECUTE THEN 
ELSE EXECUTE 

THEN ; 

: DO ENGLISH EMPLACE D-E ' , IMMEDIATE : 



IMMEDIATE 
: USER DO. ENGLISH OVER ; 
! LADEN DO. ENGLISH LOAD ; ete. 



When building the translation 
vooabulary, the colon ':' creates the word 
UBBR and then exeoutea the immediate word 
DO. ENGLISH. DO. ENGLISH first amplaoes the 
run-time procedure 'D-E' and then uses " ' , 
" to emplace the parameter field address of 
the next source word ( OVER). Finally, the 
new word (UBER) is marked immediate, so that 
it will execute whenever later enoountermd. 



FORTH INTEREST GROUP 
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Now we sea how UBER executes. When It 
is Interpreted froi» the teralnel keyboard, 
D-E' will execute to fetch the eaplaced PF* 
within the definitions of UBER (by R> 2* «)• 
After checking STATE the ELSE part will 
execute OVER from its parameter field 
address . 



When UBEH Is encountered by the 
compiler in a colon definition, it will 
execute, as do all compiling words. Again 
R> 2* e will fetch the PFA of OVER to the 
stack. The check of STATE will be true and 
DUP 8 - C« will fetch the byte containing 
the precedence bit. When compared to hex 
80, a true will result for non-immediate, 
and 2 - , will compile the code field 
address. 



However, if the word had been immediate 
( OVER isn't ) the ELSE part will execute 
the word as In any compiling word. 



The space cost of example 2 is 1<t bytea 
per word ( 8 bytes per header and 6 bytea in 
the parameter field). The compile time cost 
Is the execution of '0-E. ' There is no 
ultimate run-time cost in compiled 
def in 1 1 ions . 

EXAMPLE TWO - <BUILDS - OOES> 

Another way is to define a 
BUILDS-DOES' word E>0 (English to German). 
It la then used to build a set of 
translation words similar to a FORTH 
mnemonic assembler. 

: E>C <BUILDS ' , IMMEDIATE 
DOBS> e STATE « 
IF (compiling ) DUP 8 - C« 80 < 
IF 2 - , ELSE EXECUTE THEN 
ELSE EXECUTE THEM ; 

E>G UBER OVER 

E>0 LADEN LOAD 

E>G BASIS BASE etc. 



E>G is a defining word that builds each 
German word (UBBfl) and enplaces th« 
parameter field address of the English word 
(OVER) into the new parameter field ( of 
UBER ), and finally makes UBER immediate. 
When UBER is encountered by the outer 
interpreter, it does the DOBS> part. The 
parameter of UBER, (the PPA of OVER ) Mill 
be fetched and STATE tasted. Since 
executing, the ELSE part will exeoute OVER 
from its parameter field addrea* ( as In the 
example 1 ). 



When oompiling, the DOES> part will be 
executed, again similarly to 'D-B' as in 
Example 1. The space eoat of the 
BUILDS-DOES method is 10 bytes per word ( 
in the header, 2 in the parameter field). 
The compile time is the same as in Example 1 
and there is no run-time cost. 



EXAMPLE THREE - RENAME 



This laat method Is the most fool-proof 
of all. We will Just ro-label the name 
field of each resident word to the German 
equivalent. 

: RENAME ' 8 - DUP C« bO 

AND (precedence bit ) 
20 WOriO HEKK Ct * 
HERE CI (store into length) 
HERE SWAP t MOVK ; 

( overlay old name ) 

RENAME OVER UBER 

RENAME LOAD LADED 

RENAME BASE BASIS 

This method extracts the precedence bit of 
the old (English) definition and adds it to 
the length count of the new (German) name. 
The new name is then overwritten to the old 
name field. There is no space or time 
coat 1 1 The dictionary is now truely 

translated. 



A final caution is in order for 
Examples 1 and 2. Some FORTH methods may 
still give trouble. If you should try: 

UBER 

you will find the PFA of UBER which is a 
tranalatlng definition, and not the ultimate 
run-time procedure, (which is really in 
OVER). Thia would have dlsaaterous results 
if you were attempting to alter what you 
thought was the executing procedure, and you 
were really altering the compiling word. 
For this reason, the method of Example 3 is 
the only truly 'fool-proof' method. The 
renaming method has the added use of 
allowing you to change names in your running 
aystem. For example, it is likely that the 
old <R will be renamed >R In the 
international standard PORTH-77. Tou can 
simply update your system by the use of the 
word RENAME. 

;S W.r. RACSDALE 8/27/^8 
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THREADED CODE 



Bell (1) and Dewar (2) have described 
the concepts of Threaded Code (also called 
Direct Threaded Code, or DTC) , and an 
improvement called Indirect Threaded Code, 
or ITC. r>TC was used to Implement Fortran 
IV for the PDP-11, and ITC was used for a 
machine- independent version of Spltbol (a 
fast form of the strlnq-processlnq language 
Snobol) . Forth is a form of ITC, but 
different from the scheme presented in (2). 

In OTC, a program consists of a list of 
addresses of routines. DTC Is fast; in 
fact, only a single PDP-11 instruction 
execution is required to link from one 
routine to the next (the instruction is 'JNP 
^(R)*', where 'R' is one of the general 
registers). Overall, DTC was found to be 
about three percent slower than straight 
code using frequent subroutine jumps and 
returns, and to require 10-20~ percent less 
memory. But one problem is that fo£ each 
var table the compiler had to generate two 
short routines to push and pop that variable 
on the internal run-time stack. 

In ITC, a program is a list of 
addresses of addresses of routines to he 
executed. As used in (2), each variable had 
pointers to push and pop routines, followed 
by its value. The major advantage over DTC 
Is that the compiler does not have to 
generate separate push and pop routines for 
each variable; instead these were standard 
library routines. The compiler did not 
generate any routines, only addresses, so It 
was more machine independent. In practice, 
ITC was found to run faster than DTC despite 
the extra level of indirection. It also 
used less meaory. 

Forth is a form of ITC, with additional 
features. 

Forth operations are lists of addresses 

pointing into dictionary ent ries . Each 
dictionary entry contains: 

(A) Ascii operation name, length of the 
name, and precedence bit; these are used 
only at compile time and will not be 
discussed further. 

(B) A link pointer to the previous 
dictionary entry. (This is used only at 
compile time.) 

(C) A pointer called the code address, 
which always points to executable machine 

code . 

(D) A parameter field, which can 
contain machine instructions, or Forth 
address lists, or variable values or 
pointers or other Information depending on 
the variable type. 



By the way, virtually everything In 
Forth Is part of a dictionary entry: the 
compiler, the run-time routines, the 
operating system, and your programs. In 
most versions, only a few bytes of code are 
outside of the dictionary. 

The code address is crucial; this Is 
the 'Indirect' part of ITC. Every 
dictionary entry contains exactly one code 
address. If the dictionary entry Is for a 
"primitive" (one of the ^0 or so operation* 
defined in machine language) , the code 
address points two bytes beyond itself, to 
the parameter field, which contains the 
machine-language routine. 

If the dictionary entry is for a Forth 
higher-level operation (a colon definition), 
the code address points to a special "code 
routine" for colon definitions. This short 
routine (e.g. 3 PDP-11 instructions) nests 
one level of Forth execution, pushing the 
current 'I' register (the Forth "instruction 
counter") onto a return-address stack, then 
beginning Forth execution of the 
address-llst In the new operation's 
parameter field. 

If the dictionary entry is for a 
variable, then the code address points to a 
code routine unique to that variable's type. 
The parameter field of a variable may 
contain the variable's value - or pointers 
if re-entrant, pore-code Forth Is desired. 



Results of Forth-type ITC include: 

(A) Execution is fast, e.g. two PDP-11 
Instruction executions to transfer between 
primitives, about ten to nest and un-nest a 
higher-level definition. (Because of the 
pyramidal tree-structure of execution, the 
higher-level nesting is done less often.) 
Yet the language is fully interactive. 

(B) Forth operation names (addresses) 
are used exactly the same regardless of 
whether they represent primitives or 
higher-level definitions (nested to any 
depth). Not even the compiler knows the 
difference. In case run-speed optimization 
is desired, critical higher-level operations 
(such as Inner loops) can be re-coded as 
primitives, running at full machine speed, 
and nothing else need by changed. 

(C) Forth code Is very compact. The 
language Implements an entire operating 
system which can run stand-alone. Including 
the Forth compiler, optional assembler, 
editor, and run-time system, in about 6k 
bytes. (Forth can also run as a task under 
a conventional operating system, which sees 
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It as an ordinary aaseably-languaga proqrM, 
and Forth can link to other lanquagaa this 
way.) Coda is so compact that 
appUcatlon-orlented utility routlnas can ba 
laft In tha ayaten parmanently, whara thay 
are Immediately available either as keyboard 
commands or Instructions In programs, and 
they are used In exactly the same way In 
either case. No linkage editing Is naaded, 
and overlays are unusual. 
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FORTH la the oooblnatlon of an 
extensible programming language and 
Interactive operating system. It forms a 
consistent and complete programming 
environment which la then extended for each 
application situation. 
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- The aecond meeting of the FORTH 
International Standards Team will occur in 
Loa Angelea on October 16-19. Contact FORTH 
Inc. for additional information. 

- A partially micro-coded FORTH-llke 
language la described in "Threaded Code for 
Laboratory Computers" by J.B, Phillips, 
M.F. Burke, and G.S. Wilson, Dept. of 
Chemistry, University of Arizona, Tucson, AZ 
05721. The article is published in Software 

- Praotloe and Experience, Volume 8, pages 
257-263. Implementation la on a HP2100. 
The article alao describes the advantages of 
threaded languages for laboratory 
applloatlona. 

A "form" of FORTH for the Apple and PET 
6502 baaed oomputera is available from 
Programme Conaultants, 3100 Wilshlre Blvd., 
Los Angeles, CA 90010. He have not used 
these enough to review them for this issue 
but they have been shipped and do work. For 
more Information write to Prograoma 
Conaultanta or watch future issues of FORTH 
DIMENSIONS. 

FORTH Ino. is looking for a programmer 
with aome ayatems-level experience using 
FORTH or similar languagea. Interested 
peraona should contact FORTH Inc., 815 
Hanhattan Avenue, Manhattan Beach, 
California 90266, (213) 372-8it93 . 



In applications that are to run 
'atand-alone ' , a compaot eroaa-oomplled form 
la uaed. It consists of compiled worda. 
Interpretive alda, and maoblne oode 
prooedurea. It la non-extanaible, aa tha 
aymbollo Identifiera are deleted from eaoh 
word, and little of the uaual operating 
aystem need be included. 

;S W.F.R. ii/26/78 
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SCR « 6 



HELP 



THE •HELP* COrtMAND IS FROBABLV WE HOST USEfU. 0P1I0N FOR 

1 A FORTH SySTW. IT ALLOWS YOU TO VIEW WE DICTIONARY NOROS 

2 AND LOCATE THfM IN MEWORY. WHEN YOU ARE TESTING NEW 

3 DEFINITIONS* IT WILL SHOW RE- DEFINITIONS- I T I S A WAY TO 

4 LOCATE WHERE A MISSING WORD SHOULD BE* BUT ISN'T. 
5 

6 IF YOU HAKE A COMPILE ERROR FROM DISC* 'HELP* WILL SHOW 

7 THE WORD IN WHICH WE ERROR OCCURED* 
8 

9 YOU SHOULD MODIFY THE FOLLOWING DEFINITIONS TO Wt FORMAT 

10 YOU WANT. FOR OBJECT CODE EXAMINATION* 1 LIKE WE CODE FI ILD 

11 ADDRESSES AS SHOWN, SIWCE WIS IS WHAT RESULTS IN WE COMPILED 
le CODE. FOR A OUICX SNAP-SHOT OF WE DICTIONARY* I JUST PRINT 
13 THE LEN6W AND N/MES. 

14 

15 JUST TYPE 'HELP' A.MD HI! WE 'BREAK* KEY TO STOP. 



SCR i 7 

( HELP > HEX 

1 00 CONSTANT LAST.LIfdK ( IS S8000 ON NICRO-FORW ) 

2 4 CONSTANT #/LlN£ ( WORDS PRINTED PER LINE > 

3 

4 I .NAME ( ENTER WI 1H ADDRESS OF LCNGW BY1C > 

5 DUP Ct 7F AND DECIMAL 3 .R SPACE I* 3 TYPE SPACE I 
6 

7 t .CODE-ADDRESS C ENTER WI W ADDRESS OF LEMGW BYTE > 

e 6 * HEX 5 .R SPACE I 

9 

10 t .HEADER ( ENTER WI W ADDRESS OF LEN6W BYTE > 

11 DUP .NAME .CODE- ADDRESS I 
12 

13 t TTERMINAL I ( USER'S MACHINE DEPENDENT TERMINAL BREAK I 
C RETURN '00 ''FOR NO BREAK* M«0 *01 * FOR A BREAK > 
15 8 LOAD IS 8/27/78" WFR 



SCR # 8 

( HELP* CONT. > 
I 

S * .LINE C PRINT A LINE OF N/MES M4D CODE ADDRESSES ) 

3 #/LINE < ENTER WI W ADDRESS OF LGN6W BYTE > 

4 DO DUP .HEADER SPACE 4 ♦ f DUP LAST.LINK »- 

5 IF LEAVE WEN LOOP I < EXIT WIW NEXT ADDRESS > 

6 

7 « HELP C PRINT DICTIONARY FROM TOP CURRENT WORD DOIM > 

8 C TO BOTTOM. FORMAT IS LEM6TO COUNT* 3 LETTERS OF > 

9 ( NAME* AND CODE FIELD ADDRESS. WILL TERMINATE > 
10 ( UPON LAST LINK VALUE OR A TERMINAL BREAK. > 
n BASE C« >R CURRENT • f 

IS BEGIN CR .LINE DUP LAST.LINK ■ ITEHMINAL ♦ 

13 END DROP < LAST LINK > R> BASE CI * 

14 

15 DECIMAL IS 8/28/78 WFR 
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""^''mO. lEBB 5 .U IE90 7 -ME tttO 13 .CO ICM 

4 BOO IBSB 8 -> 1B6A 4 TUB tB57 3 TTY 1B44 OK 



ABOVE WE SEE AN EXAMPLE OF THE LOADING OF THE 'HELP' COHNAND 
FROM DISC. IT THEN IS TESTED* AND DWS THE DICTIONART. 
WE SEE THE LISTING OF 'HELP' AND THE WORDS IS USESI LISTING 
CONTINUES INTO THE RESIDENT *DI CTIONARY. 

GOOD LUC<# WFR 



MANUALS 



DECUS PDP-n FORTH 

by Owens Valley Radio Observatory, California Institute of 
Technology, Martin S. ISwing. (alias The Caltecn FORTH 
Manual) Available from DECUS, 129 Parker Street, PK3/E55, 
Haynard, Mass. 0M5'K Ordering Information: Program No. 
n-232, Write-up, $5.00 . 

FORTH Systems Reference Manual 

W. Hlchard Stevens, Sep 7b. Kitt Peak National Observatory, 
Tucson, AZ b572b. (NOT FOR SALE) 

LABFORTH 

An Interactive Language for Laboratory Conputing, 
Introductory Principles, Laboratory Software Systems, Inc., 
363'» Mandeviile Canyon, Los Angeles, CA SOO^g. $6.00 . 

STOIC 

(Stack Oriented Interactive Compiler) by MIT and Harvard 

Biomedical Kngineering Center. Documentation and listings 

for bObO from CP/M Users Group, 164 west 83rd Street, Hew 

rork, N.r. 1002'«. $M.QO membership, $a.00 per 8" floppy, 2 
floppies needed. 

CONVERS 

The Digital Group, Box 6528, Denver, CO 80226 flanual: 
DOC-CONVERS $12.60 . 

URTH 

(University of Rochester FORTH), Tutorial Manual, Hardwick 
Forsley, Laboratory for Laser Energetics, 250 E. River Rd., 
Rochester, HI 1M621 . 

microFORTH Primer 

FORTH, Inc. 815 Manhattan Ave., Manhattan Eeach, Ca 9026b 
(moving soon) $15.00 . 
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